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Sir: 



We, TIMOTHY A. McDONOUGH, CARL J. LEDBETTER, ROBERT SCOTT 
PLANK, STEVEN W. FISHER, STEVEN T. KANEKO, and STEVEN BATHICHE, hereby 
declare' that: 



1) We are named as joint invaitors of the above-c^tioned application, U.S. AppUcation 
Serial No. 09/699,517, and all claims presently pending therein; 

2) I, TIMOTHY A. McDONOUGH, am presently employed by Microsoft Corporation 
(Microsoft) and have been since July 1997. Microsoft is the assignee of ttie above- 
idoitified (Application. 



Each munbered declaration is a joint declaration unless an individual reference has been made. In such a case, the 
referenced individual is making the numbered declaration. 
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i^l. No. 09/699^17 

Declaration under 37 C.F.R. § 1.131 

Reply to Final Office Actiwi of September 23, 2003 

3) I, CARL J- LEDBETTER, am presently employed by Microsoft Corporation 
(Microsoft) and have been since January 1995. Microsoft is the assignee of the 
above-identified application. 

4) I, ROBERT SCOTT PLANK, am presently employed by Microsoft Corporati^^ 
(Microsoft) and have been since January 1992. Microsoft is the assignee of the 
above-identified application. 

5) I, STEVEN W. FISHER, am presently employed by Microsoft Corporation 
(Microsoft) and have been since September 1997. Microsoft is the assignee of the 
above-identified plication. 

6) I, STEVEN T. KANEKO, am presently employed by Microsoft Corporation 
(Microsoft) and have been since September 1991 . Microsoft is the assignee of the 
above-identified application. 

7) I, STEVEN B ATHICHE, am presently employed by Microsoft Corporation 
(Microsoft) and have been since June 1999. Microsoft is the assignee of the above- 
identified application. 

8) We were employed by Microsoft during development of the above-identified 
invention. 

9) We conceived of and reduced to practice the invention recited in at least a number of 
the claims of the above-c^tioned application prior to February 20, 2000. 

10) Conception occurred prior to February 20, 2000, as is evidenced by the reproduction 
of a notebook entry in Exhibit A. 

1 1) Actual reduction to practice occurred prior to February 20, 2000, as is evidenced by 
the source code in Exhibit B. 

12) Support for at least claims 1-3, 6-10, 21, 27-28, and 30 of the above-captioned 
application can be found, among other places, at least within Exhibits A and B 
prepared prior to February 20, 2000. 

1 3) The attached Exhibits A and B have not been materially altered since it was originally 
created except for the redaction of references to dates on the documents. 
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No. 09/699^17 



Declaration under 37 CF.R. §1.131 
Rq)ly to Final Office Action of September 23, 2003 

14) Each of us individually represents that we are over 1 8 years of age and of competent 
mind. 

15) All statements made of our own knowledge are true and all statements made on 
information and belief are believed to be true; and fiirlher, these statements were 
made witfi the knowledge that willful, false statement so made are punishable by fine 
orimprisonmentorboth,under 18U.S.C.§ 1001 and that such willful, false 
statements may jeopardize the validity of the above-identified application or any 
patent issuing thereon. 

Respectfiilly submitted. 



Timothy A* McDonough, Date 
Microsoft Corporation 



Carl J. Ledbetter Date 
Microsoft Corporation 



Robert Scott Plank Date 
Microsoft Corporation 





Steven W.Fisher 
Microsoft Corporation 



Date 



Steven T.Kaneko 
Microsoft Corporation 



Date 



Steven Bathiche, 
Microsoft Corporation 



Date 
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Declaration under 37 CJ.R. § 1.131 

R^Iy to Final Office Action of Scfytember 23, 2003 



EXHIBIT A 

Rq)roduction of Notebook Entry 
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DATE; 



DATE: 



DATE; 



d7 



Appl. No. 09/699,517 

Declaration under 37 C.F.R. § 1.131 

Reply to Final Office Action of September 23, 2003 



EXHIBIT B 

Source Code 
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'version 5.00 
Begin VB.Form forml 
Caption 
ClientHeight 
ClientLeft 
Client Top 
ClientWidth 
IiinkTopic 
ScaleHeight 
ScaleWidth 
Visible 
Begin VB. Timer Tiiner2 

Interval = 100 

Left = 0 

Top = 0 

End 

Begin VB. Timer Timer 1 

Enabled = 0 'False 

Interval = 200 

Left = 480 

Top = 0 

End 

End 

Attribute VBjIame = "forml" 
Attribute VB_GlobalNameSpace = False 
Attribute VB„Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 

Private Const KEYEVENTF_EXTENDEDKEY = &H1 
Private Const KEYEVENTF.KEYUP = &H2 
Private Const VK^SCROLL = &H91 
Private Const VK_CAPITAL = &H14 
Private Const VK_NOMLOCK = &H90 



Private messages As Integer 
Private namespace As namespace 
Private inbox As MAPIFolder 

Private keystateO As Byte 
Private result As Long 
Private light_state As Booleaui 



Private WithEvents nuapplication As outlook. Application 
Attribute m_application.VB_VarHelpID = -1 

Private hwndMouseDriver As Long 
Private light^on As Long 
Private light_off As Long 

Private Declare Function RegisterWindowMessage Lib ''user32" Alias 
"RegisterWindowMessageA* (ByVal IpString As String) As Long 

Private Declare Function SendMessage Lib ■user32" Alias "SendMessageA" (ByVal 
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, iParam As Any) As Long 



■HRD New Kail Notification" 
465 
60 
345 
3750 
"forml" 
465 
3750 

0 • False 




Private Declare Function FindWindcw Lib "user32" Alias "FindWindowA" {ByVal 

IpClassName As String, ByVal IpWindowName As String) As Long 

Private Declare Function PostMessage Lib ■user32" Alias -PostMessageA" (ByVal 

hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal IParam As Long) As 

Long 



Private Declare Sub keybd^event Lib "user32- (ByVal bVk As Byte, ByVal bScan As 
Byte, ByVal dwFlags As Long, ByVal dwExtralnfo As Long) 

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As 
Long 

Private Declare Fxmction GetActiveWindow Lib ''user32" () As Long 
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ 
(ByVal hwnd As Long, ByVal IpString As String, ByVal cch As Long) As Long 

Private Declare Function GetFocus Lib "user32" () As Long 

*tray icon stuff 

•Declare a user-defined variable to pass to the Shell_JIotifylcon 
' function. 

Private Type NOTIFYICONDATA 

cbSize As Long 

hwnd As Long 

uld As Long 

uFlags As Long 

uCallBackMessage As Long 

hi con As Long 

szTip As String * 64 
End Type 

•Declare the constants for the API function. These constants can be 
•found in the header file Shellapi.h. 

'The following constants are the messages sent to the 

• ShellJWotifylcon function to add, modify, or delete an icon from the 
'taskbar status area. 

Private Const NIJ1_ADD = &H0 
Private Const NI^1_M0DIFY = &H1 
Private Const NIM_DELETE = &H2 

•The following constant is the message sent when a mouse event occurs 
•within the rectangular boundaries of the icon in the taskbar status 

• area . 

Private Const WMJMOUSEMOVE = &K200 

'The following constants are the flags that indicate the valid 
'members of the NOTIFYICONDATA data type. 
Private Const NIF.MESSAGE = &H1 
Private Const NIF_ICON = &H2 
Private Const NIF_TIP = ScHA 

'The following constants are used to determine the mouse input on the 
'the icon in the taskbar status area. 



•Left-click constants. 



Private Const WICLBUTTONDBIiCLK = &H203 
Private Const WWLJiBUTTONDOWN = &H201 
Private Const W^UiBDTTONUP = &H202 



'Double- click 
•Button down 
'Button up 



'Right-click constants. 
Private Const WKLRBUTTONDBLCLK = &H206 
Private Const WH_RBUTTONDOWN = &H204 
Private Const WM_RBUTTONDP = &H205 



'Double-click 
'Button down 
'Button up 



•Declare the API function call. 

Private Declare Fiinction Shell_NotifyIcon Lib "shell32- _ 
Alias "Shell^NotifylconA" _ 

(ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean 

'Dimension a variable as the user-defined data type. 
Dim nid As NOTIFYICONDATA 



'Private Declare Ftanction RegisterWindowMessage Lib "user32" Alias 
"RegisterWindowMessageA" (ByVal IpString As String) As Long 

'Private Declare Function PostMessage Lib ■user32- Alias "PostMessageA" (ByVal 
hwnd As Long, ByVal ^i^g As Long, ByVal wParam As Long, ByVal iParam As Long) As 
Long 



Private Sub Coinmandl_Click() 
End Sub 

Private Sub scroll_light (state As Boolean) 

ReDim keystate(0 To 255) 

result = GetKeyboardState(keystate(0) ) 

If (result) Then 



If (keystate{VK_SCROLL) And Not (state)) Then 

keybd.event VK_SCR0LL, 0, KEYEVENTF_EXTENDEDKEY Or 0, 0 
keybd.event VK_SCR0LL, 0, KKYEVENTF_EXTENDEDKEY Or KEyEVEaqTF_KE YUP , 

Elself (Not (keystate(VKL-SCROLL)) And state) Then 

keybd_event VK^SCROLL, 0, KEYEVENTF_EXTENDEDKEY Or 0, 0 
keybd^event VK_SCROLL, 0, KEYEVENTF^EXTENDEDKEY Or KEYEVENTF„KEYUP , 



0 



End If 



End If 



End Sub 




Private Sub ForTtL_Initialize() 



light_.on = RegisterWindowMessage("light_on" ) 
light_off = RegisterWindowMessageClight^off**) 

hwndMouseDriver = FindWindow( "POINTEXE" , "Pointer.exe Invisible Window") 

result = PostMessage (hwndMouseDriver, light_on, 0, 0) 

Set in_application = CreateObject { "out look. application • , 
Set namespace = m_application,GetNamespace{"MAPI") 
Set inbox = namespace. GetDefaultFolder(olFolder Inbox) 

•if light on turn it off 
' scroll_light (False) 

If inbox. IftiReadltemCount <> 0 Then 
messages = inbox. UnReadltemCoxmt * 2 
Timerl . Enabled = True 
End If 

End Sub 

Private Svh FontuKeyPress (KeyAscii As Integer) 
scro 1 1 J ight ( Fal se ) 
Timerl . Enabled = False 
Timer 2. Enabled = False 

End Sub 



Private Sxib FornuLoadO 
'tray icon stuff 

'Set the individual values of the NOTIFYICONDATA data type. 
nid.cbSize = Len(nid) 
nid - hwnd = f orml . hwnd 
nid.uld = vbNull 

nid.uFlags = NIF^ICON Or NIF_TIP Or NIF^MESSAGE 
nid.uCallBackMessage = WJOIOUSEMOVE 
nid.hlcon = f orml. Icon 

nid.szTip = "Double Click to close Mouse Light" & vbNullChar 

'Call the Shell„NotifyIcon function to add the icon to the taskbar 
'status area. 

Shell_jsrotifylcon NIM_ADD, nid 
'tray icon end 
End Sub 

Private Sub FooOdouseMove (Button As Integer, Shift As Integer, X As Single, Y 
As Single) 



Dim temp As Integer 



' Return value that Windows has vwritten to string. 
ActiveWindowCaption = strCaption 
End If 
End Function ' 

Private Sub Timer l_Tiiner ( ) 



If messages <> 0 And (messages Mod 2 = 0) Then 

result = PostMessage(hwndMouseDriver, light_on, 0, 0) 

' scroll„light (True) 

messages = messages - 1 
Elself messages <> 0 And Not (messages Mod 2 = 0) Then 

result = PostMessage(hwndMouseDriver, light_off, 0, 0) 
' scroll_light (False) 

messages = messages - 1 
Elself inbox.UnReadltemCount <> 0 Then 

result = PostMessage(hwndMouseDriver, light_off, 0, 0) 

• scroll„light (False) 
Timerl . Enabled - False 
Timer2 . Enabled = True 

Else 

result = PostMessage(hwndMouseDriver, light„on, 0, 0) 

• scroll_light (False) 
Timer2 .Enabled = False 
Timerl. Enabled = False 

End If 

End Sub 



Private Sub Timer2_Timer ( ) 

messages = inbox.UnReadltemCount * 2 
Timer2 . Enabled = False 
Timerl. Enabled = True 

End Sub 



End Sub 



'Event occurs when the mouse pointer is within the rectangular 

'boundaries of the icon in the taskbar status area. 

Dim msg As Long 

Dim sFilter As String 

msg = X / Screen.TwipsPerPixelX 

Select Case msg 

Case WtCI-BUTTONDOWN 

Case WbLLBUTTONUP 

Case WM_LBUTTONDBIiCLK 
Unload fonnl 

Case WH_RBUTTONDOWN 

Case wtt.RBtrrTONUP 

Case WM_RBUTTONDBLCLK 
End Select 



Private Sub FomuTerminate ( ) 

'Delete the added icon from the taskbeur status area when the 
'program ends. 

Shell_NotifyIcon NOCDELETE, nid 
result = PostMessage(hwndMbuseDriver, light_on, 0, 0) 
End Siib 

Private Sub FornuUn load (Cancel As Integer) 

'Delete the added icon from the taskbar status area when the 
'program ends. 

Shelljtlotifylcon NIIl_DEriETE, nid 

result = PostMessage(hwndMouseDriver, light_on, 0, 0) 

End Sub 



Private Sub m_application^eu^il ( ) 

Timer 1. Enabled = False 

messages = inbox.UhReadltemCoiant * 2 

result = PostMessage(hwndMouseDriver, light_off, 0, 0) 
'scroll^light (False) 
Timer 1. Enabled = True 

End Sub 



Function ActiveWindowCaptionO As String 

Dim strCaption As String 
Dim IngLen As Long 

' Create string filled with null characters. 
strCaption = String$(255, vbNullChar) 
' Return length of string. 
IngLen = Len (strCaption) 

' Call GetActiveWindow to return handle to active window, 

' and pass handle to GetWindowText , along with string and its length. 

If (GetWindowText( Get Focus, strCaption, IngLen) > 0) Then 



